#lang rosetta-racket


(require "arc-truss.rkt")

(provide arc-truss-1-example
         arc-truss-2-example)


(define (arc-truss-1-example)
  (view
   (xyz -14.07595208645646 -11.918814337206479 15.318183517337024)
   (xyz -1.971635407170635 0.185502342079366 3.213866838051185)
   (perspective 50)
   (arc-truss u0 10 9 0 (- pi/2) pi/2 1 20)))

(define (arc-truss-2-example)
  (view
   (xyz -11.844257986875096 -1.3172844855200316 7.05660311547566)
   (xyz -6.288698827483353 2.7878846140500078 6.209031254111464)
   (perspective 50)
   (arc-truss (y 5) 8 9 0 (- pi/3) pi/3 2 20)))